SetCondensedLines


Purpose   Sets the text display into 43/50 line mode on EGA/VGA systems.

Decln.    SetCondensedLines;

Remarks   Systems equipped with EGA/VGA displays can support the display of
          up to 43 or 50 lines of text. This procedure switches the display
          into the condensed mode.

          If the procedure is called on non EGA/VGA equipment, W_Error is
          set to 12, but it is a non-fatal error. The screen simply remains
          in 25 line mode.

          A global variable DisplayLines is automatically updated with the
          current number of display lines.

Example

BEGIN
    IF EGAVGASYSTEM AND (DISPLAYLINES = 25) THEN
       SETCONDENSEDLINES.
END;